int main () {
    double red;
    int i;

    #pragma acc kernels copy(red) create(i)
    {
        #pragma acc loop  reduction(+ : red)
        for (i = 0; i < 100; i++)
            red += 2;
    }
    printf("** Red %g \n", red);

}
